home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5040.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  44 lines
  1. 5 ONERRORGOTO2000:DEFSEG=0
  2. 10 MODE8:DIM:ERASEa:c$=CHR$(5):n=2:m$="ax1+bx2+cx3+dx4+ex5+fx6+gx7"
  3. 30 CLS:PRINT"ax1+bx2+cx3+¥¥¥=y     (2ónó7)";
  4. 40 LOCATE0,1:PRINTc$;"n=";n;"?";:INPUT@2;n:LOCATE0,0:IFn<2 ORn>7 THEN40
  5. 60 m=n-1:DIMa(m,n):p$=LEFT$(m$,4*m+3)+"=y":CLS:PRINTp$;
  6. 100 FORi=0 TOm:FORj=0 TOn
  7. 110 s$=MID$(STR$(i+1),2)+":"+MID$(p$,j*4+1,1):z=a(i,j)
  8. 120 GOSUB1950:IFw=0 THENa(i,j)=z:GOTO140
  9. 130 IFj=0 THENIFi=0 THEN30 ELSEi=i-1:j=n-1 ELSEj=j-2
  10. 140 NEXT:NEXT
  11. 160 LOCATE0,1:PRINTc$;"x1 = .....";:GOTO830
  12. 310 FORi=0 TOm:z=b(i):IFz<>0 ANDABSz>=1e-90 THENz=ROUND(z,LOG(ABSz)-7)
  13. 315 IFz<>0 ANDABSz<1e-90 THENz=z*1e10:z=ROUND(z,LOG(ABSz)-7):z=z/1e10
  14. 320 PRINTc$;"x";MID$(STR$(i+1),2);" =";z;
  15. 330 w=ASC(INPUT$(1,@)):IFw=29 ORw=28 THEN30
  16. 360 IFw<>13 ANDw<>31 ANDw<>30 THEN330
  17. 370 IF(w=31 ANDi=m) OR(w=30 ANDi=0) THEN330
  18. 390 IFw=30 THENi=i-2
  19. 400 NEXT:GOTO30
  20. 830 ERASEb,c,e:y=2*n-1:x=m:DIMc(x,y),e(x),b(x)
  21. 840 FORi=0 TOm:FORj=0 TOm:c(i,j)=a(i,j):NEXT:NEXT
  22. 850 FORi=0 TOm:FORj=n TOy:IFi=j-n THENc(i,j)=1
  23. 860 NEXT:NEXT
  24. 870 FORi=0 TOx:e(i)=i:NEXT
  25. 880 FORk=0 TOx:w=ABS(c(k,k)):a=k:b=k
  26. 890 FORi=k TOx:FORj=k TOx:IFw<ABS(c(i,j)) THENw=ABS(c(i,j)):a=i:b=j
  27. 900 NEXT:NEXT
  28. 920 IFw<1E-10 THENGOSUB1800:GOTO30
  29. 940 IFk<>a THENFORj=k TOy:w=c(k,j):c(k,j)=c(a,j):c(a,j)=w:NEXT
  30. 950 IFk<>b THENFORi=0 TOx:w=c(i,k):c(i,k)=c(i,b):c(i,b)=w:NEXT:w=e(k):e(k)=e(b):e(b)=w
  31. 960 w=c(k,k):c=k+1:FORj=c TOy:c(k,j)=c(k,j)/w:NEXT
  32. 970 FORi=0 TOx:IFi<>k THENw=c(i,k):FORj=c TOy:c(i,j)=c(i,j)-w*c(k,j):NEXT
  33. 980 NEXT:NEXT
  34. 1040 FORj=n TOy:FORi=0 TOx:w=e(i):c(w,x)=c(i,j):NEXT
  35. 1050 FORi=0 TOx:c(i,j)=c(i,x):NEXT:NEXT
  36. 1270 FORi=0 TOm:w=0:FORk=0 TOm:w=w+c(i,k+n)*a(k,n):NEXT:b(i)=w:NEXT:GOTO310
  37. 1800 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
  38. 1950 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@43;z:LOCATE0,0:w=PEEK(&H65B)-13:RETURN
  39. 2000 IFERR=1 THENCLS:ONERRORGOTO0
  40. 2020 IFERL=40 THENRESUME40
  41. 2030 IFERL=1950 THENRESUME1950
  42. 2040 IFERL=60 THENERASEa:RESUME60
  43. 2080 GOSUB1800:RESUME30
  44.